home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
sndsgood.zip
/
B_EXMPLE.BAS
< prev
next >
Wrap
BASIC Source File
|
1990-03-08
|
187b
|
11 lines
OPEN "I", 1, "SND1.SND"
soundbuffer$ = INPUT$(119, #1)
CLOSE #1
CALL installit
CALLS dosound(soundbuffer$)
check:
CALLS eventsleft(a%)
IF a% <> 0 THEN GOTO check
CALL removeit